home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / HOMES.ZIP / NEW.PRG < prev    next >
Text File  |  1996-01-05  |  1KB  |  76 lines
  1. PROCEDURE new
  2.  
  3. PRIVATE cnt
  4.  
  5. SELECT a
  6. SET ORDER TO 2
  7. GOTO TOP
  8. COUNT TO cnt FOR date > Date() - 30 .AND. status # "Sold"
  9. IF cnt = 0
  10.     SET COLOR TO W+/N
  11.     @ 20,5 SAY "No new listings in last 30 days"
  12.     key=InKey(4)
  13.     @ 20,5 CLEAR TO 20,50
  14.     SELECT b
  15.     RETURN
  16. ENDIF   
  17. GOTO TOP
  18. DECLARE anew[cnt]
  19. x=1
  20. DO WHILE x < cnt       
  21.    IF date > Date() - 30 .AND. status # "Sold"
  22.       anew[x] = pic1
  23.       x=x+1
  24.    ENDIF
  25.    SKIP
  26. ENDDO
  27. IF date > Date() - 30 .AND. status # "Sold"
  28.    anew[x] = pic1
  29. ENDIF
  30.  
  31. x=1
  32. SEEK anew[1]
  33. SET COLOR TO W+/R
  34. @ 1,15 SAY "New Listings"
  35. DO tt
  36. IF cnt > 1
  37.    DO ts
  38. ENDIF
  39. DO vscr
  40. DO view
  41.  
  42. SET COLOR TO N/N
  43. @ 20,0 GET charin
  44. DO WHILE .T.
  45.    READ 
  46.    DO CASE 
  47.       CASE Lastkey() = 27                   && <Esc>
  48.            EXIT
  49.       CASE LastKey() = 5                    && <Up Arrow>
  50.            IF x=1
  51.               LOOP
  52.            ENDIF
  53.            x=x-1
  54.            SEEK anew[x]
  55.            DO view
  56.            LOOP
  57.       CASE LastKey() = 24                   && <Dn Arrow>
  58.            IF x = cnt
  59.               LOOP
  60.            ENDIF
  61.            x=x+1
  62.            SEEK anew[x]
  63.            DO view
  64.            LOOP
  65.            
  66.       CASE LastKey() = 84 .OR. LastKey() = 116          && T or t
  67.            DO tag WITH tg
  68.       OTHERWISE 
  69.            LOOP
  70.    ENDCASE
  71. ENDDO
  72. RELEASE anew
  73. SET ORDER TO 1
  74. SELECT b
  75. RETURN
  76.